COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "clok1"
C00005 ENDMK
C⊗;
BEGIN "clok1"
REQUIRE "DDSUB.SAI[GRA,HPM]" SOURCE_FILE;
REAL X1,Y1,X2,Y2,SIZE; STRING S; INTEGER I,J,K,L,M,N,DUM,CHN;
BOOLEAN SYN;
INTEGER ARRAY DIGS[0:9];

PROCEDURE DIG(REAL X;INTEGER I);
   BEGIN INTEGER J,K,L;
   J←DIGS[I];
   FOR K←0 STEP 1 UNTIL 4 DO FOR L←0 STEP 1 UNTIL 6 DO
   IF (J LSH (L*5+K-35)) LAND 1 THEN
   RECTAN(X+.2*(2*K/5-1),.3*(2*(6-L)/7-1),
            X+.2*(2*(K+1)/5-1),.3*(2*(7-L)/7-1));
   END;


DIGS[0]←'355736757334;
DIGS[1]←'147061430636;
DIGS[2]←'355431463076;
DIGS[3]←'355431417334;
DIGS[4]←'553267630614;
DIGS[5]←'774307417334;
DIGS[6]←'355707557334;
DIGS[7]←'761463143060;
DIGS[8]←'355733557334;
DIGS[9]←'355733617334;
OUTSTR("SIZE:"); SIZE←REALSCAN(S←INCHWL,DUM); IF SIZE=0 THEN SIZE←1;
OUTSTR("USE SYNTHESIZER?"); SYN←(INCHWL LAND '137)="Y";
IF ¬SYN THEN
   BEGIN
   CHN←GDDCHN(-1);
   OUTSTR("CHANNEL "&CVOS(CHN)&'15&'12);
   END;
SCREEN(-1,-1/SIZE,1,1/SIZE);
WHILE TRUE DO
   BEGIN
   N←CALL(0,"TIMER")%3600;
   IF N≠DUM THEN
      BEGIN
      DUM←N;
      M←(N%60) MOD 12;
      N←N MOD 60;
      DDINIT; IF SYN THEN FOR K←'32,'33,'34,'35,'37 DO DPYUP(K);
      DRKEN; DDINIT;
      IF M%10 ≠ 0 THEN DIG(-.8,M%10);
      DIG(-.3,M MOD 10);
      DIG(.25,N%10);
      DIG(.75,N MOD 10);
      RECTAN(-.05,.1,0,.15); RECTAN(-.05,-.15,0,-.1);
      FOR I←1 STEP 1 UNTIL 5 DO
      IF SYN THEN
        FOR K←'36 DO DPYUP(K)
      ELSE
        DPYUP(CHN);
      SHOWA(IF SYN THEN '47 ELSE CHN);
      END;
   CALL(10,"SLEEP");
   END;

END;